home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / GUESS.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  1KB  |  42 lines
  1. ' GUESS.BAS
  2. ' This program is a guess-a-number game.  The program generates a
  3. '   random number and asks the user to guess what it is.  After the
  4. '   user has guessed the number, the program displays the number
  5. '   of guesses made.
  6.  
  7. CLS
  8.  
  9. PRINT "Guess-a-number game"
  10. PRINT
  11. PRINT "I'm thinking of a number between 1 and 100."
  12. PRINT "Can you guess what it is?"
  13. PRINT
  14.  
  15. RANDOMIZE TIMER
  16.  
  17. randNum% = INT(RND * 100)                ' generate random number
  18. numGuesses% = 0                          ' start with a clean slate
  19.  
  20. DO
  21.     INPUT "What is your guess?  ", guess%
  22.     SELECT CASE guess%
  23.        CASE IS = randNum%
  24.            PRINT "Congratulations!!"
  25.        CASE IS < randNum% - 10
  26.            PRINT "Brrr!  You're cold!  Try a bigger number."
  27.        CASE IS > randNum% + 10
  28.            PRINT "Brrr!  You're cold!  Try a smaller number."
  29.        CASE IS <> randNum%
  30.            PRINT "You're warm..."
  31.     END SELECT
  32.    
  33.     numGuesses% = numGuesses% + 1        ' chalk up one guess
  34.     PRINT                                ' print a blank line
  35.  
  36. LOOP UNTIL guess% = randNum%
  37.  
  38. PRINT "You guessed the number in"; numGuesses%; "tries!"
  39.  
  40.  
  41.  
  42.